'----------------------------------------------------------------------
'REQUIREMENTS:
'VB40016.DLL must be installed (VB4.0-16bit runtime library)
'OLERMAP.EXE must be registered'----------------------------------------------------------------------
'Sample code for using the OLERmap
'----------------------------------------------------------------------
Dim rmap As Object
Dim User$,Password$
Dim x%
Set rmap = CreateObject("OLERmap.CallRmapDLL")
'if registered this is the first call. Password$ will be provided upon registration
x = rmap.Final(Password$)
'example for getting the user
User$ = rmap.UserName()
'make sure to set the object to nothing before the application ends
Set rmap = Nothing
'----------------------------------------------------------------------